home *** CD-ROM | disk | FTP | other *** search
/ Tux Racer / Tux Racer.iso / program files / Sunspire Studios / Tux Racer / tuxracer_init.tcl < prev    next >
Encoding:
Text File  |  2001-12-07  |  12.6 KB  |  359 lines
  1. # Tux Racer initialization script
  2.  
  3. #
  4. # Save data directory
  5. # 
  6. set tux_data_dir [pwd]
  7.  
  8. #
  9. # Set up language strings
  10. #
  11. source "language.tcl"
  12.  
  13.  
  14. #
  15. # Useful subroutines
  16. #
  17. proc tux_goto_data_dir {} {
  18.     global tux_data_dir
  19.     cd $tux_data_dir
  20. }
  21.  
  22. proc tux_course_init {} {
  23.     global tux_data_dir
  24.     source "$tux_data_dir/courses/common/courseinit.tcl"
  25. } 
  26.  
  27. proc tux_course_init_v60 {} {
  28.     global tux_data_dir
  29.     source "$tux_data_dir/courses/common/courseinit-v60.tcl"
  30. } 
  31.  
  32. proc loading_refresh_display {} {
  33.     if {[objget :course loading]} {
  34.     objcall :servers:render redraw
  35.     after 50 loading_refresh_display
  36.     }
  37. }
  38.  
  39. proc begin_loading_course {} {
  40.     global ls
  41.     objcall :servers:render set_loading_text \
  42.         [ gs loading ]
  43.     loading_refresh_display
  44. }
  45.  
  46. proc subtract_from_ai { time } {
  47.     foreach child [objget :ai_targets children] {
  48.     set curtime [objget $child time]
  49.     set curtime [expr $curtime-$time]
  50.     objset $child -time $curtime
  51.     }
  52. }
  53.  
  54. # Setup font size table
  55. set lang [tux_get_param language]
  56. if { $lang != "english" } {
  57.     set font_size(huge)    35
  58.     set font_size(big)     30
  59.     set font_size(xxlarge) 25
  60.     set font_size(xlarge)  20
  61.     set font_size(vlarge)  20
  62.     set font_size(large)   16
  63.     set font_size(medium)  14
  64.     set font_size(small)   12
  65.     set font_size(vsmall)  11
  66.     set font_size(xsmall)  11
  67.     set font_size(tiny)    11
  68. } else {
  69.     set font_size(huge)    40
  70.     set font_size(big)     35
  71.     set font_size(xxlarge) 30
  72.     set font_size(xlarge)  25
  73.     set font_size(vlarge)  22
  74.     set font_size(large)   20
  75.     set font_size(medium)  16
  76.     set font_size(small)   14
  77.     set font_size(vsmall)  13
  78.     set font_size(xsmall)  12
  79.     set font_size(tiny)    11
  80. }
  81.  
  82. #
  83. # Load splash screen logo and font first so we can display it
  84. #
  85.  
  86. # Mouse cursor
  87. tux_load_texture mouse_cursor textures/mouse_cursor.png 0
  88. tux_bind_texture mouse_cursor mouse_cursor
  89.  
  90. # Snow Particle
  91. tux_load_texture snow_particle courses/common/snowparticles.png 0
  92. tux_bind_texture snow_particle snow_particle
  93.  
  94. # Splash screen logo
  95. tux_load_texture splash_screen_tr textures/splash_tr.png 0
  96. tux_load_texture splash_screen_br textures/splash_br.png 0
  97. tux_load_texture splash_screen_tl textures/splash_tl.png 0
  98. tux_load_texture splash_screen_bl textures/splash_bl.png 0
  99.  
  100. tux_bind_texture splash_screen_tr splash_screen_tr
  101. tux_bind_texture splash_screen_br splash_screen_br
  102. tux_bind_texture splash_screen_tl splash_screen_tl
  103. tux_bind_texture splash_screen_bl splash_screen_bl
  104.  
  105. if { $lang == "english" } {
  106.     tux_load_texture trebuchet_white fonts/trebuchet_white.png 0
  107.     tux_load_font -name trebuchet_white -file fonts/trebuchet.tfm \
  108.         -texture trebuchet_white
  109. } else {
  110.     tux_load_texture trebuchet_white fonts/trebuchet_white_i18n.png 0
  111.     tux_load_font -name trebuchet_white -file fonts/trebuchet_i18n.tfm \
  112.         -texture trebuchet_white
  113. }
  114.  
  115. tux_bind_font -binding splash_subtext -font trebuchet_white \
  116.     -size $font_size(large)
  117. tux_bind_font -binding speed_mode_text -font trebuchet_white -size $font_size(tiny) -colour {  1 1 1 1 }
  118.     
  119.  
  120. #
  121. # Read course index
  122. #
  123. objset :modes:splash_screen -loading_text \
  124.     [ gs loading_course_index ]
  125. source courses/course_idx.tcl
  126.  
  127. #
  128. # Read characters
  129. #
  130. source characters/character_init.tcl
  131.  
  132. #
  133. # Set Up Music
  134. #
  135.  
  136. # Functions
  137. proc select_racing_music { num } {
  138.     global racing_music_loaded
  139.     if { ! $racing_music_loaded } {
  140.     return;
  141.     }
  142.     tux_bind_music intro racing$num -1
  143.     tux_bind_music racing racing$num -1
  144.     tux_bind_music paused racing$num -1
  145.     tux_bind_music game_over racing$num -1
  146. }
  147.  
  148. objset :modes:splash_screen -loading_text \
  149.     [ gs loading_music ]
  150.  
  151. # Splash & Start screens
  152. if { [tux_load_music start_screen music/intro.mp3] } {
  153.     tux_bind_music splash_screen start_screen -1
  154.     tux_bind_music start_screen start_screen -1
  155.     tux_bind_music loading start_screen -1
  156. }
  157.  
  158. if { [tux_load_music credits music/credits.mp3] } {
  159.     tux_bind_music credits_screen credits -1
  160. }
  161.  
  162. # Music played during race
  163. set racing_music_loaded 0
  164. if { [tux_load_music racing1 music/racing.mp3] &&
  165.      [tux_load_music racing2 music/racing2.mp3] } {
  166.     objcall :music:racing1 incr_ref_count
  167.     objcall :music:racing2 incr_ref_count
  168.     set racing_music_loaded 1
  169.     select_racing_music 2
  170. }
  171.  
  172.  
  173. objset :modes:splash_screen -loading_text \
  174.     [ gs loading_fonts ]
  175.  
  176.  
  177. # Fonts
  178.  
  179. if { $lang == "english" } {
  180.     if { [tux_get_param use_hires_fonts] } {
  181.     tux_load_texture trebuchet_yel_blk fonts/trebuchet_yel_blk_512.png 0
  182.     } else {
  183.     tux_load_texture trebuchet_yel_blk fonts/trebuchet_yel_blk.png 0
  184.     }
  185.     tux_load_font -name trebuchet_yel_blk -file fonts/trebuchet.tfm \
  186.               -texture trebuchet_yel_blk
  187. } else {
  188.     if { [tux_get_param use_hires_fonts] } {
  189.     tux_load_texture trebuchet_yel_blk fonts/trebuchet_yel_blk_i18n_512.png 0
  190.     } else {
  191.     tux_load_texture trebuchet_yel_blk fonts/trebuchet_yel_blk_i18n.png 0
  192.     }
  193.     tux_load_font -name trebuchet_yel_blk -file fonts/trebuchet_i18n.tfm \
  194.               -texture trebuchet_yel_blk
  195. }
  196.  
  197. tux_bind_font -binding time_label -font trebuchet_yel_blk -size 20
  198. tux_bind_font -binding time_value -font trebuchet_yel_blk -size 30
  199. tux_bind_font -binding time_hundredths -font trebuchet_yel_blk -size 20
  200. tux_bind_font -binding place_label -font trebuchet_yel_blk -size 20
  201. tux_bind_font -binding place_value -font trebuchet_yel_blk -size 30
  202. tux_bind_font -binding trick_bonus -font trebuchet_yel_blk -size 30
  203. tux_bind_font -binding diff_time_value -font trebuchet_yel_blk -size 15
  204. tux_bind_font -binding herring_count -font trebuchet_yel_blk -size 30
  205. tux_bind_font -binding player_name -font trebuchet_yel_blk -size 25
  206. tux_bind_font -binding speed_digits -font trebuchet_yel_blk -size 35
  207. tux_bind_font -binding speed_units -font trebuchet_yel_blk -size 20
  208. tux_bind_font -binding version -font trebuchet_yel_blk -size $font_size(tiny) -colour {  1 1 1 1 }
  209. tux_bind_font -binding fps -font trebuchet_yel_blk -size $font_size(large) 
  210.  
  211. tux_bind_font -binding button_label -font trebuchet_white -size $font_size(xxlarge)
  212. tux_bind_font -binding button_label_hilit -font trebuchet_white -size $font_size(xxlarge) \
  213.               -colour { 1.00 0.89 0.01 1.0 }
  214. tux_bind_font -binding button_label_disabled -font trebuchet_white -size $font_size(xxlarge) \
  215.               -colour { 1.0 1.0 1.0 0.5 }
  216. tux_bind_font -binding menu_label -font trebuchet_white -size $font_size(xxlarge)
  217. tux_bind_font -binding listbox_item -font trebuchet_white -size $font_size(vlarge) \
  218.               -colour { 1.00 0.89 0.01 1.0 }
  219. tux_bind_font -binding event_and_cup_label -font trebuchet_white -size $font_size(vlarge) 
  220. tux_bind_font -binding race_description -font trebuchet_white -size $font_size(medium)
  221. tux_bind_font -binding race_requirements_label -font trebuchet_white -size $font_size(vsmall) \
  222.               -colour { 1.00 0.95 0.01 1.0 }
  223. tux_bind_font -binding race_requirements -font trebuchet_white -size $font_size(vsmall)
  224. tux_bind_font -binding cup_status -font trebuchet_white -size $font_size(medium) \
  225.               -colour { 1.00 0.89 0.01 1.0 }
  226. tux_bind_font -binding loading -font trebuchet_yel_blk -size $font_size(xxlarge)
  227. tux_bind_font -binding loading_subtext -font trebuchet_yel_blk -size $font_size(large)
  228. tux_bind_font -binding race_over -font trebuchet_yel_blk -size $font_size(huge)
  229. tux_bind_font -binding race_over_h2h -font trebuchet_yel_blk -size $font_size(large)
  230. tux_bind_font -binding cup_won -font trebuchet_yel_blk -size $font_size(xxlarge)
  231. tux_bind_font -binding race_stats -font trebuchet_yel_blk -size $font_size(xlarge)
  232. tux_bind_font -binding race_stats_label -font trebuchet_yel_blk -size $font_size(xlarge)
  233. tux_bind_font -binding race_stats_h2h -font trebuchet_yel_blk -size $font_size(small)
  234. tux_bind_font -binding race_stats_label_h2h -font trebuchet_yel_blk -size $font_size(small)
  235. tux_bind_font -binding race_result_msg -font trebuchet_yel_blk -size $font_size(xlarge)
  236. tux_bind_font -binding paused -font trebuchet_yel_blk -size $font_size(huge)
  237.  
  238. tux_bind_font -binding credits_h1 -font trebuchet_yel_blk -size $font_size(xxlarge)
  239. tux_bind_font -binding credits_h2 -font trebuchet_yel_blk -size $font_size(large)
  240. tux_bind_font -binding credits_text -font trebuchet_white -size $font_size(large)
  241. tux_bind_font -binding credits_text_small -font trebuchet_white -size $font_size(small)
  242.  
  243. tux_bind_font -binding flythru_help_text -font trebuchet_yel_blk -size $font_size(medium)
  244.  
  245. tux_bind_font -binding console_text -font trebuchet_white -size $font_size(vsmall) \
  246.               -colour { 0.30 0.10 0.10 0.5 }
  247.  
  248. tux_bind_font -binding console_stext -font trebuchet_white -size $font_size(tiny) \
  249.               -colour { 0.30 0.10 0.10 0.5 }
  250.  
  251. tux_bind_font -binding configure_menu_label -font trebuchet_white -size $font_size(large)
  252. tux_bind_font -binding configure_listbox_item -font trebuchet_white -size $font_size(xsmall) \
  253.     -colour { 1.00 0.89 0.01 1.0 }
  254.  
  255. tux_bind_font -binding small_button_label -font trebuchet_white -size $font_size(large)
  256. tux_bind_font -binding small_button_label_hilit -font trebuchet_white \
  257.     -size $font_size(large) -colour { 1.00 0.89 0.01 1.0 }
  258. tux_bind_font -binding small_button_label_disabled -font trebuchet_white \
  259.     -size $font_size(large) -colour { 1.0 1.0 1.0 0.5 }
  260.  
  261. tux_bind_font -binding ui_title -font trebuchet_yel_blk -size $font_size(xxlarge)
  262. tux_bind_font -binding high_score_title -font trebuchet_white -size $font_size(xsmall)
  263. tux_bind_font -binding high_score_item -font trebuchet_white -size $font_size(xsmall) \
  264.     -colour { 1.00 0.89 0.01 1.0 }
  265.  
  266. # HUD
  267. objset :modes:splash_screen -loading_text \
  268.     [ gs loading_hud_textures ]
  269.  
  270. tux_load_texture herring_icon textures/herringicon.png 0
  271. tux_bind_texture herring_icon herring_icon
  272.  
  273. tux_load_texture gauge_outline textures/gaugeoutline.png 0
  274. tux_bind_texture gauge_outline gauge_outline
  275.  
  276. tux_load_texture gauge_energy_mask textures/gaugeenergymask.png 0
  277. tux_bind_texture gauge_energy_mask gauge_energy_mask
  278.  
  279. tux_load_texture gauge_speed_mask textures/gaugespeedmask.png 0
  280. tux_bind_texture gauge_speed_mask gauge_speed_mask
  281.  
  282. tux_load_texture course_map_outline textures/course_map_outline.png 0
  283. tux_bind_texture course_map_outline course_map_outline
  284.  
  285. tux_load_texture course_map_mask textures/course_map_mask.png 0
  286. tux_bind_texture course_map_mask course_map_mask
  287.  
  288.  
  289. # UI widgets
  290. objset :modes:splash_screen -loading_text \
  291.     [ gs loading_ui_textures ]
  292.  
  293. tux_load_texture listbox_arrows textures/listbox_arrows.png 0
  294. tux_bind_texture listbox_arrows listbox_arrows
  295. tux_bind_texture textarea_arrows listbox_arrows
  296.  
  297. tux_load_texture mirror_button textures/mirror_button.png 0
  298. tux_bind_texture mirror_button mirror_button
  299.  
  300. tux_load_texture conditions_button textures/conditions_button.png 0
  301. tux_bind_texture conditions_button conditions_button
  302.  
  303. tux_load_texture snow_button textures/snow_button.png 0
  304. tux_bind_texture snow_button snow_button
  305.  
  306. tux_load_texture wind_button textures/wind_button.png 0
  307. tux_bind_texture wind_button wind_button
  308.  
  309. tux_load_texture slider_start textures/slider_start.png 0
  310. tux_bind_texture slider_start slider_start
  311.  
  312. tux_load_texture slider_knob textures/slider_knob.png 0
  313. tux_bind_texture slider_knob slider_knob
  314.  
  315. tux_load_texture slider_knob_sel textures/slider_knob_sel.png 0
  316. tux_bind_texture slider_knob_sel slider_knob_sel
  317.  
  318. tux_load_texture slider_end textures/slider_end.png 0
  319. tux_bind_texture slider_end slider_end
  320.  
  321. tux_load_texture slider_bar textures/slider_bar.png 0
  322. tux_bind_texture slider_bar slider_bar
  323.  
  324. tux_load_texture checkbox_box textures/checkbox_box.png 0
  325. tux_bind_texture checkbox_box checkbox_box
  326.  
  327. tux_load_texture checkbox_box_sel textures/checkbox_box_sel.png 0
  328. tux_bind_texture checkbox_box_sel checkbox_box_sel
  329.  
  330. tux_load_texture checkbox_check textures/checkbox_check.png 0
  331. tux_bind_texture checkbox_check checkbox_check
  332.  
  333. # Menu decorations
  334. tux_load_texture menu_bottom_left textures/menu_bottom_left.png 0
  335. tux_bind_texture menu_bottom_left menu_bottom_left
  336.  
  337. tux_load_texture menu_bottom_right textures/menu_bottom_right.png 0
  338. tux_bind_texture menu_bottom_right menu_bottom_right
  339.  
  340. tux_load_texture menu_top_left textures/menu_top_left.png 0
  341. tux_bind_texture menu_top_left menu_top_left
  342.  
  343. tux_load_texture menu_top_right textures/menu_top_right.png 0
  344. tux_bind_texture menu_top_right menu_top_right
  345.  
  346. tux_load_texture menu_title textures/menu_title.png 0
  347. tux_bind_texture menu_title menu_title
  348.  
  349. # Tux life icon
  350. tux_load_texture tux_life textures/tuxlife.png 0
  351. tux_bind_texture tux_life tux_life
  352.  
  353. #
  354. # Models
  355. #
  356. objset :ai_resources:ai_target_model \
  357.     -filename models/arrow.obj.strip \
  358.     -backface_culling 0 
  359.